JCSM Shareware Collection 1993 November/JCSM Shareware Collection - 1993-11.iso/cl700/menuev.lzh/MESAMPLE.FRM

Text File | 1993-08-30 | 2KB | 97 lines

VERSION 2.00
Begin Form MESAMPLE
   BorderStyle     =   1  'Fixed Single
   Caption         =   "MenuEv Sample"
   ClientHeight    =   2760
   ClientLeft      =   1275
   ClientTop       =   2520
   ClientWidth     =   4680
   Height          =   3450
   Left            =   1215
   LinkTopic       =   "Form1"
   ScaleHeight     =   2760
   ScaleWidth      =   4680
   Top             =   1890
   Width           =   4800
   Begin MenuEvent MenuEv1
      Left            =   240
      Top             =   240
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Label1"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   2490
      Width           =   4335
   End
   Begin Shape Shape1
      BackColor       =   &H00C0C0C0&
      BackStyle       =   1  'Opaque
      Height          =   375
      Left            =   -10
      Top             =   2400
      Width           =   4695
   End
   Begin Menu MenuFile
      Caption         =   "&File"
      Begin Menu MenuFileNew
         Caption         =   "&New"
      End
      Begin Menu MenuFileOpen
         Caption         =   "&Open"
      End
      Begin Menu MenuFileClose
         Caption         =   "&Close"
      End
      Begin Menu MenuFileSep
         Caption         =   "-"
      End
      Begin Menu MenuFileExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu MenuEdit
      Caption         =   "&Edit"
   End
   Begin Menu MenuView
      Caption         =   "&View"
   End
End

Option Explicit

Sub Form_Load ()
    Label1 = ""
End Sub

Sub Form_Unload (Cancel As Integer)
    End
End Sub

Sub MenuEv1_MenuEvent (MenuText As String, Flags As Integer)
    Select Case MenuText
        Case "&File"
            Label1 = "Create, open, save files or quit."
        Case "&New"
            Label1 = "Creates a new file."
        Case "&Open"
            Label1 = "Opens an existing file."
        Case "&Close"
            Label1 = "Closes a file."
        Case "E&xit"
            Label1 = "Quits MESAMPLE."
        Case "&Edit"
            Label1 = "Edit things."
        Case "&View"
            Label1 = "View things."
    End Select
End Sub

Sub MenuFileExit_Click ()
    End
End Sub